TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/CRS/crs07.d81/supermen.prg

Commodore BASIC | 2009-10-10 | 11KB | 405 lines

10 GOTO300
20 REM:::MAIN ROUTINE:::
30 X=12:Y=2
40 FOR I=C-1TOC+1:IFI=0THEN NEXT I
50 IF I=21 THEN100
60 Y=I+2
70 REM:::HIGH LIGHT CHOICE:::
80 IF C=N(I) THEN PRINT"";
90 @X,Y:PRINTB$(I);"[146]":Y=Y+1
100 NEXT I
110 REM:::INPUT FROM KEYBOARD:::
120 GET A$:IFA$=""THEN120
130 IF A$=""THENC=C+1:IFC=21THENC=1:A$="+"
140 IF A$="[145]"THENC=C-1:IFC=0THENC=20:A$="-"
150 IF A$="+"THENB=B+20:IFB=XXTHENB=0
160 IF A$="-"THENB=B-20:IFB=-20THENB=XX-20
170 IF A$="+" OR A$="-"THEN GOSUB200
180 IF A$=CHR$(13)THEN460
190 GOTO20
200 REM:::PRINT ENTIRE CHART:::
210 FOR I=1 TO 20:B$(I)=GAME$(I+B):NEXT
220 X=12
230 FOR I=1TO20
240 Y=I+2
250 REM:::HIGH LIGHT CHOICE:::
260 IF C=N(I) THEN PRINT"";
270 @X,Y:PRINTB$(I);"[146]":Y=Y+1
280 NEXT I
290 RETURN
300 FORX=40870TO40959:READA:POKEX,A:NEXT:SYS40873:CLR:RESTORE:FORX=40870TO40959:READA:NEXT
310 GOSUB2770
320 XX=160
330 DIMGAME$(XX),DISC$(XX),SIDE$(XX),INST$(XX),B$(20),N(20):C=1
340 N$="                "
350 @12,3:PRINT"READING"
360 @12,4:PRINT"GAMES"
370 @12,5:PRINT"AVAILABLE..."
380 REM:::READ DATA:::
390 FOR I=1TOXX:READ GAME$(I),DISC$(I),SIDE$(I),INST$(I)
400 REM:::FILL NULLS:::
410 IF LEN(GAME$(I))=16 THEN430
420 GAME$(I)=GAME$(I)+RIGHT$(N$,(16-LEN(GAME$(I))))
430 NEXT
440 FOR I=1TO20:N(I)=I:NEXT
450 GOSUB200 :GOTO20
460 REM:::LOAD DISC AND GAME:::
470 I=I-2
480 @12,3:PRINT"TO LOAD GAME... "
490 @12,4:PRINT"";GAME$(I+B);"[146]"
500 @12,5:PRINTN$
510 @12,6:PRINT"INSERT DISC     ";""
520 REM:::FIGURE OUT WHAT DISC:::
530 IF ASC(DISC$(I+B))<58 THEN550
540 GOTO560
550 @12,7:PRINT"";"BASIC GAMES ";DISC$(I+B);"[146]";"   "
560 IF LEFT$(DISC$(I+B),2)="SG" THEN580
570 GOTO590
580 @12,7:PRINT"";"SOLID GOLD ";RIGHT$(DISC$(I+B),1);"[146]";"    "
590 IF DISC$(I+B)="K" THEN610
600 GOTO620
610 @12,7:PRINT"";"KIDWARE[146]         "
620 IF LEFT$(DISC$(I+B),2)="AG" THEN640
630 GOTO650
640 @12,7:PRINT"";"ARCADE GAMES 1[146]  "
650 IF DISC$(I+B)<>"A" THEN670
660 @12,7:PRINT"";"ALPHA[146]           "
670 IF DISC$(I+B)<>"B" THEN690
680 @12,7:PRINT"";"BRAVA[146]           "
690 IF DISC$(I+B)<>"C" THEN710
700 @12,7:PRINT"";"CHARLIE[146]         "
710 IF DISC$(I+B)<>"D" THEN730
720 @12,7:PRINT"";"DELTA[146]           "
730 IF DISC$(I+B)<>"E" THEN750
740 @12,7:PRINT"";"ECHO[146]            "
750 IF LEN(DISC$(I+B))<>16 THEN770
760 @12,7:PRINT"";DISC$(I+B);"[146]"
770 @12,8:PRINT"[146]";N$
780 IF SIDE$(I+B)="B"THENSIDE$(I+B)="BACK "
790 IF SIDE$(I+B)="F"THENSIDE$(I+B)="FRONT"
800 @12,9:PRINT"";SIDE$(I+B);"[146] SIDE UP   "
810 @12,10:PRINTN$
820 @12,11:PRINT"AND THEN PRESS  "
830 @12,12:PRINT"[172][162][162][162][162][162][162][187]        "
840 @12,13:PRINT"[161]RETURN[146][161]        "
850 @12,14:PRINT"[188][162][162][162][162][162][162][146][190]        "
860 @12,15:PRINT"TWICE           "
870 FOR J=16TO22:@12,J:PRINTN$:NEXTJ
880 FOR J=1TO2
890 GET A$:IFA$=""THEN890
900 IFA$=CHR$(13)THEN920
910 GOSUB200 :GOTO20
920 NEXT J
930 IF INST$(B+I)="*" THEN C$="*"
940 IF INST$(B+I)="I" THEN C$=LEFT$(GAME$(B+I),4)+"*"
950 PRINT"[147]LOADING..."GAME$(I+B)"[144]"
960 PRINT"LOAD"CHR$(34)"0:"C$CHR$(34)",8,1"
970 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
980 POKE631,13:POKE632,13:POKE198,2:END
990 GETA$:IFA$="" THEN990
1000 GOTO450
1010 DATA76,72,178,169,254,160,159,133,253,132,254,169,165,160,159,133
1020 DATA55,132,56,169,198,160,159,141,8,3,140,9,3,76,94,166,160,1,177,122
1030 DATA201,64,240,3,108,252,159,136,132,2,32,115,0,32,155,183,138,164,2,145
1040 DATA253,200,132,2,192,2,208,241,160,1,177,253,201,25,176,184,170,136,177
1050 DATA253,201,40,176,176,168,24,32,240,255,76,228,167,0,0
1060 REM::::::::::::::::::::::::::::::
1070 REM:::DATA GAME,DISC,SIDE,INST:::
1080 REM::::::::::::::::::::::::::::::
1090 DATA 10TH            ,D,B,*
1100 DATA 123'S           ,K,F,*
1110 DATA 128HUES         ,2,F,I
1120 DATA 3D BREAKOUT     ,C,B,I
1130 DATA ABC'S           ,K,F,*
1140 DATA ASTROBLITZ      ,D,F,*
1150 DATA AZTEC CHALLENGE,SG2,F,*
1160 DATA BACKGAMMON,3,F,I
1170 DATA BASEBALL,C,B,I
1180 DATA BATTLE BOUND,3,B,I
1190 DATA BATTLESHIP,2,B,I
1200 DATA BEYOND FORBIDDEN,SG4,F,*
1210 DATA BINGO,3,F,I
1220 DATA BIORYTHYM PLUS,4,F,I
1230 DATA BJ-II,1,F,I
1240 DATA BJ-II,2,B,I
1250 DATA BLAST OFF.BOOT,1,B,I
1260 DATA BLOCK BATTLE,1,B,I
1270 DATABLOCKHEAD,K,F,*
1280 DATA BLUETHUNDER,3,F,I
1290 DATABOOMERANG,4,F,I
1300 DATABOOT PCS,E,F,I
1310 DATABRIDGE,2,F,I
1320 DATABRIDGE INSTRUCTI,2,F,I
1330 DATABRIDGE PLAYER,3,B,I
1340 DATABRUCE LEE,B,F,I
1350 DATAC/SOLITAIRE,2,B,I
1360 DATACARPET SOLITAIRE,1,F,I
1370 DATACAVERNS OF KHAFK,SG2,*,I
1380 DATACENTIPEDE,A,F,*
1390 DATACHERNOBYL,SG4,F,*
1400 DATACHESSMASTER 2000,C,F,*
1410 DATACHOPTER LIFTER,D,F,*
1420 DATACLUE,1,B,I
1430 DATACLUE,3,B,I
1440 DATACOLORS,K,F,*
1450 DATACRIBBAGE,3,F,I
1460 DATADEFENDER,A,F,*
1470 DATADELTA MAN,SG2,F,*
1480 DATADIG DUG,A,F,*
1490 DATADODGE CITY POKER,1,F,I
1500 DATADODGE CITY POKER,2,B,I
1510 DATADOMINOES,1,F,I
1520 DATADONKEY KONG,A,F,*
1530 DATADR RUTHS SEX,D,B,*
1540 DATADRAW POKER,1,F,I
1550 DATADRAW POKER,B,B,I
1560 DATADRIVER BOOT,C,B,I
1570 DATAEAGLE 3,2,F,I
1580 DATAEGG.BOOT,2,F,I
1590 DATAEMPIRE,4,F,I
1600 DATAEUCHIRE,3,B,I
1610 DATAFAST-DIGGER,3,B,I
1620 DATAFEARLESS FRED,SG3,F,I
1630 DATAFEED THE BIRDS,3,F,I
1640 DATAFLIPIT.BOOT,2,B,I
1650 DATAFORBIDDEN FOREST,SG2,F,I
1660 DATAFORT APOCLYPSE,D,F,I
1670 DATAFREAKS.BOOT,1,B,I
1680 DATAFUNK MACHINE,"BASIC GAMES 2   ",F,I
1690 DATAFUNNY CAR,AG1,F,*
1700 DATAGALAGA,B,B,I
1710 DATAGALAXIAN,A,F,*
1720 DATAGRAND MASTER CHE,SG5,F,*
1730 DATAGRIDRUNNER,D,F,*
1740 DATAGRIDRUNNER II,D,F,*
1750 DATAHARD HAT MACK,E,F,I
1760 DATAHIGH NOON,SG1,F,*
1770 DATA HOVER BOVER,4,F,I
1780 DATA INVADERS,AG1,F   ,*
1790 DATA ISOLATION,4,F,I
1800 DATA JERICHO II,1,F ,I
1810 DATA JOY MONOPOLY,1,F,I
1820 DATA JUNIOR FARMER,K,F,*
1830 DATA KARATE CHAMP,E,B,*
1840 DATA KASINO POKER,2,B,I
1850 DATA KENO,3,F,I
1860 DATA KNUCKER HOLE,SG3,F,*
1870 DATA KONG,AG1,F,*
1880 DATA LAZARIAN,D,F,*
1890 DATA LEADER BOARD,D,B,*
1900 DATA MARQUEE,2,F,I
1910 DATA MATCH MANIA,1,F,I
1920 DATA MEDIATOR,SG3,F,*
1930 DATA MINI GOLF,3,F,I
1940 DATAMINN.FATS POOL,C,B,I
1950 DATAMONOPOLY,2,F,I
1960 DATAMOTOR MANIA,SG1,F,*
1970 DATAMUNCHMAN,AG1,F,*
1980 DATAMUSIC & GRAPHICS,D,B,*
1990 DATANEVEREST.BOOT,1,B,I
2000 DATANUMBER NAMES,K,F,*
2010 DATAONE ON ONE,C,B,I
2020 DATAOTHELLO,1,F,I
2030 DATAPACMAN,A,F,*
2040 DATAPACMAN,B,F,I
2050 DATAPINHEAD,4,F,I
2060 DATAPOKER,2,B,I
2070 DATAPOOL,B,B,I
2080 DATAPOTTY PIGEON,SG5,F,*
2090 DATAPROFESSOR I.Q.,SG4,F,*
2100 DATAPSI,2,B,I
2110 DATAPSYCASTRIA,SG3,F,*
2120 DATAPYRAHOP,1,F,I
2130 DATAPYRAMIDSOLITAIRE,2,B,I
2140 DATAQ-BIRD          ,1,F,I
2150 DATAQEWB            ,4,F,I
2160 DATAQIX             ,3,F,I
2170 DATARACE ACE        ,4,F,I
2180 DATARESCUE.BOOT     ,1,B,I
2190 DATAROTATIONS       ,2,F,I
2200 DATASAM AND ED      ,4,F,I
2210 DATASANTA+2/ILS     ,4,F,I
2220 DATASAUCER ATTACK   ,B,F,I
2230 DATASCRAMBLED       ,3,B,I
2240 DATASHEERLUCK       ,4,F,I
2250 DATASID PLAYER      ,D,B,*
2260 DATASLAM BALL       ,B,F,I
2270 DATASLINKY          ,SG2,F,*
2280 DATASOCCER          ,B,F,I
2290 DATASOLITAIRE/64    ,2,B,I
2300 DATA SPACE ARENO.BOOT,1,F,I
2310 DATASPACE ARENO.BOOT,2,B,I
2320 DATA SPACE INVADERS  ,A,F,I
2330 DATA SPADES          ,1,F,I
2340 DATA SPITE AND MALICE,SG3,F,*
2350 DATASTAR TREK       ,D,F,*
2360 DATASTUNT RIDER     ,2,F,I
2370 DATATALLADEGA       ,SG1,F,*
2380 DATATARROT TELLER   ,3,B,I
2390 DATATENNIS          ,C,B,I
2400 DATATETRIX          ,3,F,I
2410 DATATHE WIZARD      ,A,B,*
2420 DATATIC TAC TOE     ,1,F,I
2430 DATATIDDLYWINKS     ,3,F,I
2440 DATATIME TUNNEL     ,SG1,F,*
2450 DATATOP FUEL CHALLEN,SG1,F,*
2460 DATATOWER TOPPLER   ,4,F,I
2470 DATATURMOIL         ,D,F,*
2480 DATAVEGAS ROULETTE  ,2,F,I
2490 DATAVIDIOT POKER    ,3,F,I
2500 DATAWARRIORS BOOT   ,2,B,I
2510 DATAWHAM BALL       ,1,B,I
2520 DATAWRONG WAY       ,4,F,I
2530 DATAYAHTZEE         ,1,F,I
2540 DATAZAXXON          ,B,F,I
2550 DATAZELAZ           ,3,F,I
2560 DATA"NOT USED        ",F,F,I
2570 DATA"NOT USED        ",F,F,I
2580 DATA"NOT USED        ",F,F,I
2590 DATA"NOT USED        ",F,F,I
2600 DATA"NOT USED        ",F,F,I
2610 DATA"NOT USED        ",F,F,I
2620 DATA"NOT USED        ",F,F,I
2630 DATA"NOT USED        ",F,F,I
2640 DATA"NOT USED        ",F,F,I
2650 DATA"NOT USED        ",F,F,I
2660 DATA"NOT USED        ",F,F,I
2670 DATA"NOT USED        ",F,F,I
2680 DATA"NOT USED        ",F,F,I
2690 DATA"NOT USED        ",F,F,I
2700 DATA"NOT USED        ",F,F,I
2710 DATA"NOT USED        ",F,F,I
2720 DATA"NOT USED        ",F,F,I
2730 DATA"NOT USED        ",F,F,I
2740 DATA"NOT USED        ",F,F,I
2750 DATA"NOT USED        ",F,F,I
2760 DATA"NOT USED        ",F,F,I
2770 REM:::INTIAL SCREEN:::
2780 PRINT"[147]";:POKE53280,0:POKE53281,0
2790 @11,2:PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
2800 FOR Y=3TO22:@11,Y:PRINT"[214][214]":NEXTY
2810 @11,23:PRINT           "[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
2820 PRINT"";
2830 @10,1:PRINT"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
2840 FOR Y=2TO23
2850 @10,Y:PRINT"[209][209]"
2860 NEXTY
2870 @10,24:PRINT"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]";"";
2880 PRINT"     THE MASTER MENU BY JOHN SMUDA      ";
2890 @0,3 :PRINT"[146][156][176][192][192][192][192][192][192][192][192][174]"
2900 @0,4 :PRINT"[221][158]USE  THE[156][221]"
2910 @0,5 :PRINT"[221][158] CURSOR [156][221]"
2920 @0,6 :PRINT"[221][158]KEYS  TO[156][221]"
2930 @0,7 :PRINT"[221][158] SCROLL [156][221]"
2940 @0,8 :PRINT"[221][158] UP AND [156][221]"
2950 @0, 9:PRINT"[221][158]DOWN THE[156][221]"
2960 @0,10:PRINT"[221][158]  LIST  [156][221]"
2970 @30, 6:PRINT"[149][176][192][192][192][192][192][192][192][192][174]"
2980 @30, 7:PRINT"[221][154]  HIT   [149][221]"
2990 @30, 8:PRINT"[221][172][162][162][162][162][162][162][187][149][221]"
3000 @30, 9:PRINT"[221][161]RETURN[146][161][149][221]"
3010 @30,10:PRINT"[221][188][162][162][162][162][162][162][146][190][149][221]"
3020 @30,11:PRINT"[221][154]  WHEN  [149][221]"
3030 @30,12:PRINT"[221][154]  YOUR  [149][221]"
3040 @30,13:PRINT"[221][154] CHOICE [149][221]"
3050 @30,14:PRINT"[221][154]   IS   [149][221]"
3060 @30,15:PRINT"[221][154]  HIGH  [149][221]"
3070 @30,16:PRINT"[221][154]LIGHTED [149][221]"
3080 @30,17:PRINT"[173][192][192][192][192][192][192][192][192][189]"
3090 @0,11:PRINT"[156][173][192][192][192][192][192][192][192][192][189]";
3100 @0,14:PRINT"[153][176][192][192][192][192][192][192][192][192][174]"
3110 @0,15:PRINT"[221][150]USE  THE[153][221]"
3120 @0,16:PRINT"[221][172][162][187]  [172][162][187][221]"
3130 @0,17:PRINT"[221][161]+[146][161]  [161]-[146][161][221]"
3140 @0,18:PRINT"[221][188][162][146][190]  [188][162][146][190][221]"
3150 @0,19:PRINT"[221][150]KEYS  TO[153][221]"
3160 @0,20:PRINT"[221][150] SCROLL [153][221]"
3170 @0,21:PRINT"[221][150] PAGES  [153][221]"
3180 @0,22:PRINT"[173][192][192][192][192][192][192][192][192][189]"
3190 PRINT"";
3200 RETURN
3210 REM THIS PROGRAM IS VERY EASY TO
3220 REM MODIFY TO YOU PERSONALLY.
3230 REM JUST ENTER YOU PROGRAMS IN
3240 REM THE DATA STATMENTS STARTING AT
3250 REM LINE 1090 IN THE FOLLOWING
3260 REM FORMAT:
3270 REM DATA "NAME","DISC","SIDE",
3280 REM "INST"
3290 REM
3300 REM "NAME" MUST BE AT LEAST 3
3310 REM LETTER LONG AND NEVER, EVER
3320 REM LONGER THAT 16. THIS IS THE
3330 REM NAME OF YOUR PROGRAM.
3340 REM
3350 REM "DISC" MUST BE EXACTLY 16
3360 REM CHARACTERS LONG. IF THE NAME
3370 REM YOU WANT IS NOT THAT LONG THEN
3380 REM JUST ENTER SPACES AFTER THE
3390 REM NAME JUST AS LONG AS IT IS 16
3400 REM CHARACTERS LONG. YOU MAY MAKE
3410 REM IT SHORTER BUT YOU MUST MODIFY
3420 REM THE PROGRAM LINES 520 TO 740
3430 REM TO LOOK FOR YOU ABBRIVIATION
3440 REM AND THEN PRINT OUT THE CORRECT
3450 REM NAME OF YOUR DISC. THIS IS
3460 REM HELPFULL IF YOU HAVE A LOT OF
3470 REM DATA TO ENTER LIKE I DID.
3480 REM
3490 REM "SIDE" WILL BE A SINGLE
3500 REM CHARACTER EITHER "B" OR "F".
3510 REM THIS TELLS THE PROGRAM WHICH
3520 REM SIDE OF THE DISC THE PROGRAM
3530 REM IS ON.
3540 REM
3550 REM "INST" WILL BE A SINGLE
3560 REM CHARTER EITHER "I" OR "*".
3570 REM THIS TELLS THE PROGRAM IF IT
3580 REM SHOULD LOAD THE ENTIRE DISC AS
3590 REM IN [LOAD"*",8,1] OR IF IT
3600 REM SHOLD LOAD IT I.DIVIDUALLY.
3610 REM IF THE LATTER CASE IT IS VERY
3620 REM IMPORTANT THAT "NAME" IS
3630 REM EXACTLY THE PROGRAM NAME ON
3640 REM THE DISC. (OR AT LEAST THE 1ST
3650 REM THREE LETTERS)
3660 REM
3670 REM FINALLY TO INCREASE THE SIZE
3680 REM OF THE DATA BASE, JUST CHANGE
3690 REM THE VALUE OF XX IN
3700 REM LINE 320 TO A MULTIPLE OF 20.
3710 REM FOR EXAMPLE 20,40,60, OR EVEN
3720 REM 2000! REMEMBER TO ALWAY MAKE
3730 REM SURE THAT DATA IS ENTERED IN
3740 REM THAT ALL IMPORTANT MULTIPLES
3750 REM OF 20! IF YOU DON'T HAVE THAT
3760 REM THEN JUST ENTER:
3770 REM DATA "BLANK","DISC","S","I"
3780 REM OR SOMETHING SIMILIAR TO IT.
3790 REM LETS SAY YOU HAVE 30 PROGRAMS
3800 REM YOU WANT TO ENTER. OK, JUST
3810 REM ENTER YOUR 30 DATA STATEMENTS
3820 REM STARTING AT LINE     AND THEN
3830 REM ENTER 10 "BLANK" LINES AND
3840 REM THEN CHANGE LINE 320 TO READ:
3850 REM 320 XX=40
3860 REM SAVE YOUR PROGRAM AND RUN IT!
3870 REM IT IS THAT EASY!
3880 REM ENJOY!!!!!!!!!!!
3890 REM THIS PROGRAM WILL GROW WITH
3900 REM AS YOU GET MORE PROGRAMS,ENTER
3910 REM MORE DATA STATEMENTS AND
3920 REM CHANGE LINE 320 AS NECESSARY.
3930 REM JUST TYPE YOUR DATA RIGHT OVER
3940 REM MINE WHEN YOU USE THIS PROGRAM
3950 REM YOU MAY ALSO WISH TO DELETE
3960 REM ALL MY DATA. GO RIGHT AHEAD,
3970 REM BUT IT MIGHT BE A GOOD IDEA TO
3980 REM LEAVE MY "NOT USED" STATENTS
3990 REM FOR THOSE BLANKS I TALKED
4000 REM EARLIER TO GET THAT MULTIPLE
4010 REM OF 20.
4020 REM YOU MIGHT WANT TO RUN THIS
4030 REM HOW IT BEHAVE. IT IS
4040 REM WORTH THE D/L TIME. HAVE FUN!